library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_18.12.R")

diagnosis_18.12 <-
  diagnose_design(declaration_18.12,
                  sims = sims,
                  bootstrap_sims = bootstrap_sims)
write_rds(diagnosis_18.12, file = "diagnosis_objects/diagnosis_18.12.rds")
